home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / frame.gs < prev    next >
Encoding:
Text File  |  1998-04-23  |  384 b   |  22 lines

  1. say 'FRAME script running. Enter "exit" to terminate script.'
  2. while (1)
  3.   prompt 'ga> '
  4.   pull cmd
  5.   wrd = subwrd(cmd,1)
  6.   if (wrd='exit' | wrd='quit') 
  7.     break
  8.   endif
  9.   if (wrd='d' | wrd='display') 
  10.     'clear norset'
  11.     cmd
  12.     res = result
  13.     pull dummy
  14.     'clear'
  15.     prompt res
  16.   else
  17.     cmd
  18.     prompt result
  19.   endif
  20. endwhile
  21. say 'FRAME script done'
  22.